home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / start.Dxr / 00019.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  883 b   |  42 lines
  1. on catTalk soundFile
  2.   puppetSound(soundFile)
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.     set temp to random(4)
  6.     set CatHead to the number of cast ("cat" & temp)
  7.     set the castNum of sprite 10 to CatHead
  8.     updateStage()
  9.     wait(6)
  10.   end repeat
  11.   puppetSound(0)
  12.   updateStage()
  13. end
  14.  
  15. on dogTalk soundFile
  16.   puppetSound(soundFile)
  17.   updateStage()
  18.   repeat while soundBusy(1)
  19.     set temp to random(4)
  20.     set CatHead to the number of cast ("dog" & temp)
  21.     set the castNum of sprite 10 to CatHead
  22.     updateStage()
  23.     wait(6)
  24.   end repeat
  25.   puppetSound(0)
  26.   updateStage()
  27. end
  28.  
  29. on bearTalk soundFile
  30.   puppetSound(soundFile)
  31.   updateStage()
  32.   repeat while soundBusy(1)
  33.     set temp to random(4)
  34.     set CatHead to the number of cast ("bear" & temp)
  35.     set the castNum of sprite 10 to CatHead
  36.     updateStage()
  37.     wait(6)
  38.   end repeat
  39.   puppetSound(0)
  40.   updateStage()
  41. end
  42.